home *** CD-ROM | disk | FTP | other *** search
Text File | 1992-03-05 | 281 b | 15 lines | [TEXT/Help] |
- {A simple stepper relying on stepin and stepout hooks}
-
-
- (let [(c 0)]
- (define (stepin f e)
- (=! c (1+ c))
- (prin c) (prin " -> ")
- (prin f) (prin " in ")
- (print (envar e)) (pause) c))
-
- (define (stepout c v)
- (prin c)
- (prin " <- ")
- (printdebug v)(pause))
-